home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / tt27 (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  5KB  |  164 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
  4. 25 PRINT"                                        [146]":GOSUB710
  5. 30 PRINT"               [205]ODULE 27 [146]
  6. 35 [141]720
  7. 38 [151]53280,0:[151]53281,0:[151]646,7
  8. 40 [153]"LOAD                 (null)(null)27 WAIT
  9. 42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
  10. 44 PRINT"   [201]F YOU MAKE 5 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
  11. 46 PRINT"MUST START          OVER AGAIN."
  12. 48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
  13. 50 GETR$:IFR$<>CHR$(32)THEN50
  14. 52 GOSUB600
  15. 56 POKE53280,5:POKE53281,15:POKE646,0
  16. 58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
  17. 60 LINE=LINE+1:PRINT"[147] [212][212]27  [197]XERCISE:"TAB(2)LINE"OF 17"TAB(27)"[197]RRORS:"Q
  18. 62 FOR K=1 TO 17
  19. 64 READ E$(K)
  20. 66 PRINT" [212]YPE CORRECTLY, THEN PRESS [210][197][212][213][210][206][146]"
  21. 68 PRINT" ";E$(K)
  22. 70 PRINT"[144]"
  23. 72 READ F$(K)
  24. 74 POKE198,1:POKE631,34:INPUT C$
  25. 76 IF C$=F$(K) THEN 90
  26. 78 PRINT" **** [206]OT CORRECT - [210]EPEAT - [197]RRORS:"G"[144]":GOSUB2050:GOSUB710
  27. 80 Q=Q+1:G=G+1
  28. 82 IF Q=5 THEN GOSUB 400:RESTORE:G=0:GOTO 56
  29. 84 GOTO 74
  30. 90 PRINT"[156]              [195][207][210][210][197][195][212]![144]":GOSUB2000:GOSUB710:P=P+1
  31. 92 IFP=17THEN RESTORE:GOTO 300
  32. 94 GOTO60
  33. 99 REM DATA FOR EXERCISES
  34. 100 DATA" [202]OE/[202]OHN/[202]OE/[202]OHN/[202]OE/[202]OHN/[202]OE","[202]OE/[202]OHN/[202]OE/[202]OHN/[202]OE/[202]OHN/[202]OE"
  35. 105 DATA" [217]ES? [206]O? [217]ES? [206]O? [217]ES? [206]O? [217]ES?","[217]ES? [206]O? [217]ES? [206]O? [217]ES? [206]O? [217]ES?"
  36. 110 DATA" [201]S [207]LIVER AT HOME?  [217]ES, HE IS.","[201]S [207]LIVER AT HOME?  [217]ES, HE IS."
  37. 115 DATA" [215]HERE IS [204]OUIS?  [204]OUIS IS SICK.","[215]HERE IS [204]OUIS?  [204]OUIS IS SICK."
  38. 120 DATA" [205]ARK/[206]ORM/[205]ARK/[206]ORMAN/[205]ARK.","[205]ARK/[206]ORM/[205]ARK/[206]ORMAN/[205]ARK."
  39. 125 DATA" [215]HERE ARE [202]AMES, [213]LLA, AND [203]EN?","[215]HERE ARE [202]AMES, [213]LLA, AND [203]EN?"
  40. 130 DATA" [215]HAT DID [206]ORA TELL YOU YESTERDAY?","[215]HAT DID [206]ORA TELL YOU YESTERDAY?"
  41. 135 DATA" [194]ETTY/[205]ARY/[194]ETTY/[205]ARY/[194]ETTY.","[194]ETTY/[205]ARY/[194]ETTY/[205]ARY/[194]ETTY."
  42. 140 DATA" [215]HERE IS POOR OLD [213]NCLE [202]OE?","[215]HERE IS POOR OLD [213]NCLE [202]OE?"
  43. 145 DATA" [215]HAT DID [205]ISTER [210]UMBARGER SAY?","[215]HAT DID [205]ISTER [210]UMBARGER SAY?"
  44. 150 DATA" [201]S [204]YNDWOOD [211]CHOOL VERY BIG?","[201]S [204]YNDWOOD [211]CHOOL VERY BIG?"
  45. 155 DATA" [201]S [200]AMILTON WEST OF [212]ORONTO?","[201]S [200]AMILTON WEST OF [212]ORONTO?"
  46. 160 DATA" [203]INGSTON/[203]INGSTON/[203]INGSTON","[203]INGSTON/[203]INGSTON/[203]INGSTON"
  47. 165 DATA" [201]S [203]INGSTON A RIVER OR A CITY?","[201]S [203]INGSTON A RIVER OR A CITY?"
  48. 170 DATA" [200]AVE YOU EVER VISITED [208]ICTON?","[200]AVE YOU EVER VISITED [208]ICTON?"
  49. 175 DATA" [211]HERRY [194]ALRAM FOUND A [194][207][207][194][207][207].","[211]HERRY [194]ALRAM FOUND A [194][207][207][194][207][207]."
  50. 180 DATA" [193]ND [211]HERRY SAYS [200][197][204][204][207] TOO.","[193]ND [211]HERRY SAYS [200][197][204][204][207] TOO."
  51. 298 :
  52. 299 REM FINAL INSTRUCTIONS
  53. 300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
  54. 305 POKE53280,0:POKE53281,0:POKE646,7
  55. 310 PRINT"[147]  [212]HIS IS THE END OF MODULE 27.":GOSUB710
  56. 315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
  57. 317 PRINT"[145]"VAL(TI$)
  58. 320 GOSUB720
  59. 325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
  60. 330 [141]740
  61. 335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
  62. 340 PRINT"  BEFORE ADVANCING TO MODULE 28."
  63. 345 GOSUB730
  64. 350 PRINT"  [215]HEN YOU HAVE RECORDED YOUR TIME
  65. 355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null)
  66. 360 GETR$:IFR$<>CHR$(32)THEN360
  67. 362 PRINT"[147]  [217]OU HAVE A CHOICE:
  68. 364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
  69. 366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 28
  70. 368 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
  71. 370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
  72. 372 IFR$="R"THEN RESTORE:GOTO10
  73. 374 IFR$="M"THEN 386
  74. 376 RESTORE:POKE631,13:POKE198,2
  75. 378 PRINT"[147]  [204]OADING [205]ODULE 28"
  76. 380 LOAD"TT28",8
  77. 382 RUN
  78. 384 END
  79. 386 RESTORE:POKE631,13:POKE198,2
  80. 388 PRINT"[147]  [210]ETURNING TO DISK MENU
  81. 390 [147]"MENU",8
  82. 392 [138]
  83. 394 [128]
  84. 399 :
  85. 400 [143] START AGAIN
  86. 410 [151]53280,0:[151]53281,0:[151]646,10
  87. 420 [153]"LOAD   YOU ARE MAKING TOO MANY MISTAKES!":[141]2150:[141]720
  88. 430 [153]"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
  89. 440 GOSUB740:PRINT"[147]"
  90. 450 RETURN
  91. 598 :
  92. 599 REM INSTRUCTIONS FOR MODULE
  93. 600 PRINT"[159][147]  [205]ODULE 27 INTRODUCES THE  ? [146] AND  / [146]    KEYS.
  94. 605 [153]"  DEF   WAITPRINT   WAIT   WAITSYS      WAITOPEN      WAIT   WAITPRINT   WAITDEF   WAIT
  95. 610 PRINT"   [150] [209] [146][153] [215] [146] [197] [146][158] [210]  [212] [146][159] [217]  [213] [146] [201] [146][153] [207] [146][150] [208] [146]   "
  96. 615 PRINT"    [150] [193] [146][153] [211] [146] [196] [146][158] [198] [146] [199][146][159]  [200]  [202] [146] [203] [146][153] [204] [146][150] : [146]"
  97. 620 PRINT"     [150] [218] [146][153] [216] [146] [195] [146][158] [214]  [194] [146][159] [206]  [205] [146] , [146][153] . [146][150] / [146]
  98. 625 [153]" (null)LEFT$RIGHT$ASC(null)WAIT         (null)(null)ATNLENVAL      WAIT    (null)LEFT$RIGHT$ASC(null)WAIT
  99. 630 GOSUB720
  100. 635 PRINT"[159]  [213]SE YOUR  : [146] FINGER TO TYPE  / [146].
  101. 640 [153]"  (null)SE YOUR  : WAIT FINGER AND (null)VALASC(null) (null)LEFT$RIGHT$ASC(null)"
  102. 645 [153]"  TO TYPE  ? WAIT.
  103. 660 GOSUB720:PRINT"[154]        [208]RESS  [211][208][193][195][197] [146] TO START[159]"
  104. 665 GETR$:IFR$<>CHR$(32)THEN665
  105. 670 RETURN
  106. 700 REM TIME DELAYS
  107. 710 FORT=1TO1000:NEXT:RETURN
  108. 720 FORT=1TO2000:NEXT:RETURN
  109. 730 FORT=1TO3000:NEXT:RETURN
  110. 740 FORT=1TO4000:NEXT:RETURN
  111. 750 FORT=1TO5000:NEXT:RETURN
  112. 899 REM END OF MODULE FLASH
  113. 900 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  114. 905 POKE54272,220:FOR T=15 TO 1 STEP-1
  115. 910 POKE54273,T:POKE53281,T
  116. 915 FOR T1=1 TO 5:NEXT T1:NEXT T:FOR T=1 TO 30
  117. 920 POKE54273,T:POKE53280,T
  118. 925 FORT1=1 TO 5:NEXT T1:NEXT T
  119. 930 POKE54276,0:POKE54273,0:POKE54272,0
  120. 936 RETURN
  121. 1998 :
  122. 1999 REM <YES> SOUND
  123. 2000 S=54272:FORE=STOS+28:POKEE,0:NEXT
  124. 2005 POKE54296,15:POKE54277,42:POKE54278,250
  125. 2010 POKE54276,23:POKE54273,23:POKE54272,181
  126. 2015 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  127. 2020 POKE54296,0:RETURN
  128. 2048 :
  129. 2049 REM <NO> SOUND
  130. 2050 S=54272:FORE=STOS+28:POKEE,0:NEXT
  131. 2055 POKE54296,15:POKE54277,18:POKE54278,242
  132. 2060 POKE54276,33:POKE54273,4:POKE54272,48
  133. 2063 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO800:NEXT
  134. 2065 FORE=STOS+28:POKEE,0:NEXT
  135. 2070 POKE54276,0:POKE54273,0:POKE54272,0
  136. 2075 POKE54296,0:RETURN
  137. 2098 :
  138. 2099 REM <END OF EXERCISE> SOUND
  139. 2100 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  140. 2105 POKE54272,220:FORT=50TO1STEP-1
  141. 2110 FORT1=1TO5:NEXTT1:NEXTT:FORT=1TO30
  142. 2115 POKE54273,T:POKE53280,T
  143. 2120 FORT1=1TO5:NEXTT1:NEXTT
  144. 2125 POKE54276,0:POKE54273,0:POKE54272,0
  145. 2130 TPOKE54296,0:RETURN
  146. 2148 :
  147. 2149 REM <WHOOPING> SOUND
  148. 2150 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,8
  149. 2155 POKE54277,8:POKE54278,255:POKE54276,23
  150. 2160 FORZ=1TO3:F1=2
  151. 2165 FORY=1TO3:F2=8
  152. 2170 POKE54273,F1
  153. 2175 FORX=1TO5:POKE54287,F2
  154. 2180 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY
  155. 2185 FORW=1TO10:POKE54287,F2
  156. 2190 F2=F2*1.05:NEXT W:NEXT Z:POKE54278,15
  157. 2195 POKE54296,0:RETURN
  158. 4999 :
  159. 5000 REM * IN MEMORY OF RAD JANJIC *                 ** RIP 87:11:26 **
  160. 5005 :
  161. 5010 REM DESIGNED BY W H CUMBERLAND 87:12:21/88:04:25/91:05:13
  162. 5020 REM HELP FROM JIM BUTTERFIELD
  163. 5025 REM ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS
  164.